unit eggtrayicon;


interface

uses
  classes, gtk, glib, gdk, xlib;
  
  
type
  
  { tray icon }
  PGtkEggTrayIcon = ^TGtkEggTrayIcon;
  TGtkEggTrayIcon = record
    parent_instance : TGtkPlug;
    stamp : guint;
    selection_TAtom : TAtom;
    manager_TAtom : TAtom;
    system_tray_opcode_TAtom : TAtom;
    orientation_TAtom : TAtom;
    manager_window : TWindow;
    orientation : TGtkOrientation;
  end;//TGtkEggTrayIcon
  //-----------------------------
  PGtkEggTrayManager = ^TGtkEggTrayManager;
  TGtkEggTrayManager = record
    parent_instance : TGtkObject;
    opcode_atom : TAtom;
    selection_atom : TAtom;
    message_data_atom : TAtom;
    orientation_atom : TAtom;
    invisible : PGtkWidget;
    screen : PScreen;
    orientation : PGtkOrientation;
    messages : PGList;
    socket_table : PGHashTable;
  end;//TGtkEggTrayManager
  
  function egg_tray_icon_get_type : TGtkType; external 'eggtray';
  function egg_tray_icon_new_for_screen(screen : PScreen; const sname : String) : TGtkEggTrayIcon; external 'eggtray';
  function egg_tray_icon_new(const sname : pgchar) : PGtkEggTrayIcon; external 'eggtray';
  function egg_tray_icon_send_message(icon : TGtkEggTrayIcon; timeout : gint; const message0 : String; len : gint) : guint; external 'eggtray';
  function egg_tray_icon_get_orientation(icon : TGtkEggTrayIcon) : TGtkOrientation; external 'eggtray';
  procedure egg_tray_icon_cancel_message(icon : TGtkEggTrayIcon; id : guint); external 'eggtray';
  
  function egg_tray_manager_get_type : TGtkType; external 'eggtray';
  function egg_tray_manager_check_running(screen : PScreen) : gboolean; external 'eggtray';
  function egg_tray_manager_new : PGtkEggTrayManager; external 'eggtray';
  function egg_tray_manager_manage_screen(manager : PGtkEggTrayManager; screen : PScreen) : gboolean; external 'eggtray';
  //function egg_tray_manager_get_child_title(manager : PEggTrayManager; child : PEggTrayManagerChild) : String; external 'eggtray';
  function egg_tray_manager_get_orientation(manager : PGtkEggTrayManager) : PGtkOrientation; external 'eggtray';
  procedure egg_tray_manager_set_orientation(manager : PGtkEggTrayManager; orientation : TGtkOrientation); external 'eggtray';
  

implementation
  
  
initialization


finalization


end.//unit eggtrayicon

